home *** CD-ROM | disk | FTP | other *** search
/ SPACE 2 / SPACE - Library 2 - Volume 1.iso / program / 316 / libsrc / close.c < prev    next >
Encoding:
C/C++ Source or Header  |  1988-10-20  |  665 b   |  38 lines

  1. /*
  2.  *        Cross Development System for Atari ST 
  3.  *     Copyright (c) 1988, Memorial University of Newfoundland
  4.  *
  5.  * $Header: close.c,v 1.2 88/01/29 17:30:58 m68k Exp $
  6.  *
  7.  * $Log:    close.c,v $
  8.  * Revision 1.1  88/01/29  17:30:58  m68k
  9.  * Initial revision
  10.  * 
  11.  * 1.2    jrd
  12.  *
  13.  */
  14. #include    <osbind.h>
  15. #include    <file.h>
  16.  
  17. #ifdef DEBUG
  18. extern int stderr;
  19. #endif
  20.  
  21. int close(fd)
  22.     int    fd;
  23. {
  24.     extern    int    errno;
  25.     int        rval;
  26.  
  27.     if ((rval = Fclose(fd)) < 0) {
  28.         errno = rval;
  29.         rval = -1;
  30.     if ((fd >= 0) && (fd < N_HANDLES))
  31.         __handle_stat[fd] = FH_UNKNOWN;
  32.     }
  33. #ifdef DEBUG
  34.     fprintf(stderr, "close(%d)->%d\n", fd, rval);
  35. #endif
  36.     return rval;
  37. }
  38.